﻿Imports System.Data.SqlClient

Public Class frmActualizarTipoResultado

    Private Sub frmActualizarTipoResultado_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'LabCDMDataSet.Tipo_Resultado' Puede moverla o quitarla según sea necesario.
        Me.Tipo_ResultadoTableAdapter.Fill(Me.LabCDMDataSet.Tipo_Resultado)
    End Sub

    Private Async Sub btnFiltrar_Click(sender As Object, e As EventArgs) Handles btnFiltrar.Click
        Try
            If varConexion.State = ConnectionState.Open Then
                varConexion.Close()
            End If
            Await varConexion.OpenAsync()
            Dim sqlFiltro As String = String.Format("SELECT * FROM Tipo_Resultado WHERE Id_Tipo_Resultado = '{0}'", CInt(Me.cboFiltroTipoResultado.EditValue))
            Dim cmd As New SqlCommand(sqlFiltro, varConexion)
            Dim reader As SqlDataReader = Await cmd.ExecuteReaderAsync()

            If Await reader.ReadAsync() Then
                Me.txtTipoResultado.EditValue = reader.Item("Tipo_Resultado")
                Me.txtUnidadMedida.EditValue = reader.Item("Unidad_Medida")
                Me.txtValorNormal.EditValue = reader.Item("Valor_Normal")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnActualizar_Click(sender As Object, e As EventArgs) Handles btnActualizar.Click
        Me.Tipo_ResultadoTableAdapter.SP_ActualizarTipoResultado(Me.txtTipoResultado.EditValue.ToString, Me.txtUnidadMedida.EditValue.ToString, Me.txtValorNormal.EditValue.ToString, CInt(Me.cboFiltroTipoResultado.EditValue.ToString))
        MessageBox.Show("Se ha acutalizado correctamente la información del médico.", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)

        Me.Dispose()
        Me.Close()
    End Sub

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Dispose()
        Me.Close()
    End Sub
End Class